home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 010 / games.arc / BEAMS.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1980-01-01  |  1.0 KB  |  23 lines
  1. 10  '*********************************************************************
  2. 20  '**                         BEAMS                                   **
  3. 30  '**                                                                 **
  4. 40  '**  VERSION 1.1                        28 JULY 1982                **
  5. 50  '*********************************************************************
  6. 60  SCREEN 2 : KEY OFF : CLS
  7. 70  LINE (0,100)-(225,199) : LINE -(450,100) : LINE -(225,0) : LINE -(0,100)
  8. 80  LINE (54,100)-(225,175) : LINE -(396,100) : LINE -(225,24) : LINE -(54,100)
  9. 90  LINE (108,100)-(225,151) : LINE-(342,100) : LINE -(225,48) : LINE -(108,100)
  10. 100  LINE (225,0)-(225,24) : LINE (225,199)-(225,175)
  11. 110  LINE (108,100)-(54,100) : LINE (396,100)-(342,100)
  12. 200  LINE (54,100)-(26,88)
  13. 210  LINE (396,100)-(422,112)
  14. 220  LINE (225,48)-(251,36)
  15. 230  LINE (225,151)-(199,163)
  16. 240  LINE (251,36)-(251,12)
  17. 250  LINE (199,163)-(199,187)
  18. 300  LOCATE 22,50 : PRINT "I.B.M.  SOFTWARE";
  19. 310  LINE (392,177)-(520,177)
  20. 320  LOCATE 13,28 : PRINT "*";: FOR X = 1 TO 50 : NEXT
  21. 330  LOCATE 13,28 : PRINT " ";: FOR X = 1 TO 50 : NEXT
  22. 340  GOTO 320
  23.